home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / getgro1r / form1.frm next >
Text File  |  1999-07-29  |  2KB  |  75 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Menu tracker"
  4.    ClientHeight    =   6000
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   7755
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   6000
  10.    ScaleWidth      =   7755
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton Command3 
  13.       Caption         =   "Clear"
  14.       Height          =   495
  15.       Left            =   6480
  16.       TabIndex        =   3
  17.       Top             =   1260
  18.       Width           =   1215
  19.    End
  20.    Begin VB.CommandButton Command2 
  21.       Caption         =   "Unhook"
  22.       Height          =   495
  23.       Left            =   6480
  24.       TabIndex        =   2
  25.       Top             =   660
  26.       Width           =   1215
  27.    End
  28.    Begin VB.CommandButton Command1 
  29.       Caption         =   "Hook"
  30.       Height          =   495
  31.       Left            =   6480
  32.       TabIndex        =   1
  33.       Top             =   60
  34.       Width           =   1215
  35.    End
  36.    Begin VB.ListBox List1 
  37.       BeginProperty Font 
  38.          Name            =   "Courier New"
  39.          Size            =   8.25
  40.          Charset         =   0
  41.          Weight          =   400
  42.          Underline       =   0   'False
  43.          Italic          =   0   'False
  44.          Strikethrough   =   0   'False
  45.       EndProperty
  46.       Height          =   5940
  47.       Left            =   0
  48.       TabIndex        =   0
  49.       Top             =   0
  50.       Width           =   6375
  51.    End
  52. End
  53. Attribute VB_Name = "Form1"
  54. Attribute VB_GlobalNameSpace = False
  55. Attribute VB_Creatable = False
  56. Attribute VB_PredeclaredId = True
  57. Attribute VB_Exposed = False
  58. Option Explicit
  59.  
  60. Private Sub Command1_Click()
  61.   Hook Me.hwnd
  62. End Sub
  63.  
  64. Private Sub Command2_Click()
  65.   UnHook
  66. End Sub
  67.  
  68. Private Sub Command3_Click()
  69.   List1.Clear
  70. End Sub
  71.  
  72. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  73.   UnHook
  74. End Sub
  75.